home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / aa / test2.self < prev    next >
Encoding:
Text File  |  1992-08-19  |  531 b   |  37 lines
  1. " boite test cases "
  2. "
  3. *
  4. * These tests should determine if the boite system is working correctly.
  5. *
  6. * test2.self,v 1.1 1992/08/19 02:03:46 richards Exp
  7. *
  8. * test2.self,v
  9. * Revision 1.1  1992/08/19  02:03:46  richards
  10. * Initial revision
  11. *
  12. # Revision 1.1  1992/07/05  22:11:03  richards
  13. # Initial revision
  14. #
  15. *
  16. *
  17. *
  18. "
  19.  
  20. _AddSlotsIfAbsent: (| foo. bar. baz. hunk. junk. |)
  21.  
  22. foo: boites vboite copy
  23. bar: boites htext make: 'Hello'
  24. bar setMinSizes
  25. bar _Print
  26. foo addEnd: bar 
  27. foo addEnd: ((boites htext make: 'There') setMinSizes)
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.